home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / cl-nd-cl.lha / clue / clio / clio.lisp < prev    next >
Text File  |  1990-07-19  |  2KB  |  58 lines
  1. ;;; -*- Mode:Lisp; Package:USER; Syntax:COMMON-LISP; Base:10; Lowercase:T -*-
  2.  
  3.  
  4. ;;;----------------------------------------------------------------------------------+
  5. ;;;                                                                                  |
  6. ;;;                          TEXAS INSTRUMENTS INCORPORATED                          |
  7. ;;;                                  P.O. BOX 149149                                 |
  8. ;;;                             AUSTIN, TEXAS 78714-9149                             |
  9. ;;;                                                                                  |
  10. ;;;             Copyright (C) 1989, 1990 Texas Instruments Incorporated.             |
  11. ;;;                                                                                  |
  12. ;;; Permission is granted to any individual or institution to use, copy, modify, and |
  13. ;;; distribute this software, provided that  this complete copyright and  permission |
  14. ;;; notice is maintained, intact, in all copies and supporting documentation.        |
  15. ;;;                                                                                  |
  16. ;;; Texas Instruments Incorporated provides this software "as is" without express or |
  17. ;;; implied warranty.                                                                |
  18. ;;;                                                                                  |
  19. ;;;----------------------------------------------------------------------------------+
  20.  
  21.  
  22. (in-package "USER")
  23.  
  24. (assert
  25.   (find-package "COMMON-LISP") ()
  26.   "COMMON-LISP package does not exist. 
  27.  
  28.  Please create a package named COMMON-LISP which exports CLOS and CLCS.
  29.  (You may need to make this a nickname of the LISP package.)
  30. ")
  31.  
  32. (assert
  33.   (find-package "CLUE") ()
  34.   "CLUE must be loaded before making CLIO-OPEN.")
  35.  
  36.  
  37. ;; The Open Look implementation of CLIO goes in CLIO-OPEN...
  38. (unless (find-package "CLIO-OPEN")
  39.   (make-package "CLIO-OPEN" :use '(:common-lisp :clue))
  40.   
  41.   
  42.   #-(and clx-mit-r4 ansi-common-lisp)
  43.   ;; Crock! XLIB and COMMON-LISP both want to export define-condition!
  44.   ;; Shadow all XLIB externals already exported by COMMON-LISP.
  45.   (shadowing-import
  46.     (let (shadows)
  47.       (do-external-symbols (s :xlib shadows)
  48.     (multiple-value-bind (symbol status) (find-symbol (symbol-name s) :common-lisp)
  49.       (when (and symbol (eq :external status))
  50.         (push symbol shadows)))))
  51.     :clio-open)
  52.  
  53.   (use-package :xlib :clio-open))
  54.  
  55.  
  56.  
  57.  
  58.